home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / archiver / arc.zoo / arctst.s < prev    next >
Text File  |  1989-01-29  |  1KB  |  97 lines
  1. #NO_APP
  2. .text
  3. LC0:
  4.     .ascii "Archive truncated in file %s\12\0"
  5. LC1:
  6.     .ascii "Testing file: %-12s  \0"
  7. LC2:
  8.     .ascii "okay\12\0"
  9. LC3:
  10.     .ascii "No errors detected\12\0"
  11. LC4:
  12.     .ascii "One error detected\12\0"
  13. LC5:
  14.     .ascii "%d errors detected\12\0"
  15.     .even
  16. .globl _tstarc
  17. _tstarc:
  18.     link a6,#-28
  19.     moveml #0x3020,sp@-
  20.     clrw sp@-
  21.     jbsr _openarc
  22.     movew #2,sp@-
  23.     clrl sp@-
  24.     movel _arc,sp@-
  25.     lea _fseek,a2
  26.     jbsr a2@
  27.     movel _arc,sp@-
  28.     jbsr _ftell
  29.     movel d0,d3
  30.     clrw sp@-
  31.     clrl sp@-
  32.     movel _arc,sp@-
  33.     jbsr a2@
  34.     addw #26,sp
  35.     moveq #-28,d2
  36.     addl a6,d2
  37.     jra L2
  38. L8:
  39.     movel _arc,sp@-
  40.     jbsr _ftell
  41.     addl a6@(-14),d0
  42.     addqw #4,sp
  43.     cmpl d0,d3
  44.     jge L4
  45.     movel d2,sp@-
  46.     pea LC0
  47.     jbsr _printf
  48.     addqw #1,_nerrs
  49.     addqw #8,sp
  50.     jra L3
  51. L4:
  52.     movel d2,sp@-
  53.     pea LC1
  54.     jbsr _printf
  55.     movel __io_table+4,sp@-
  56.     jbsr _fflush
  57.     movel d2,sp@-
  58.     clrw sp@-
  59.     movel _arc,sp@-
  60.     jbsr _unpack
  61.     addw #22,sp
  62.     tstw d0
  63.     jeq L6
  64.     addqw #1,_nerrs
  65.     jra L2
  66. L6:
  67.     pea LC2
  68.     jbsr _printf
  69.     addqw #4,sp
  70. L2:
  71.     movel _arc,sp@-
  72.     movel d2,sp@-
  73.     jbsr _readhdr
  74.     addqw #8,sp
  75.     tstw d0
  76.     jne L8
  77. L3:
  78.     tstw _nerrs
  79.     jgt L9
  80.     pea LC3
  81.     jbsr _printf
  82.     jra L10
  83. L9:
  84.     cmpw #1,_nerrs
  85.     jne L11
  86.     pea LC4
  87.     jbsr _printf
  88.     jra L10
  89. L11:
  90.     movew _nerrs,sp@-
  91.     pea LC5
  92.     jbsr _printf
  93. L10:
  94.     moveml a6@(-40),#0x40c
  95.     unlk a6
  96.     rts
  97.